diff options
| author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 14:43:47 +0000 |
|---|---|---|
| committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 14:43:47 +0000 |
| commit | a180c89947f8e0c191ba7e7dba4c6eb7edf538e6 (patch) | |
| tree | e208bfc464e926bcdcccc614a0c27324b1bede26 /src/VeriFuzz/Icarus.hs | |
| parent | 5cee65b1d5e56573204217a800ad04d7209313dd (diff) | |
| download | verismith-a180c89947f8e0c191ba7e7dba4c6eb7edf538e6.tar.gz verismith-a180c89947f8e0c191ba7e7dba4c6eb7edf538e6.zip | |
Fix lint errors
Diffstat (limited to 'src/VeriFuzz/Icarus.hs')
| -rw-r--r-- | src/VeriFuzz/Icarus.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/VeriFuzz/Icarus.hs b/src/VeriFuzz/Icarus.hs index b5b2b02..c8bfccd 100644 --- a/src/VeriFuzz/Icarus.hs +++ b/src/VeriFuzz/Icarus.hs @@ -24,7 +24,7 @@ import qualified Data.ByteString.Lazy as L (ByteString) import Data.Char (digitToInt) import Data.Foldable (fold) import Data.List (transpose) -import Data.Maybe (fromMaybe, listToMaybe) +import Data.Maybe (listToMaybe) import Data.Text (Text) import qualified Data.Text as T import Numeric (readInt) @@ -66,8 +66,7 @@ convert :: Text -> ByteString convert = toStrict . (encode :: Integer -> L.ByteString) - . fromMaybe 0 - . fmap fst + . maybe 0 fst . listToMaybe . readInt 2 (`elem` ("01" :: String)) digitToInt . T.unpack |