summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--FunctorToMaybe.hs2
-rw-r--r--Hosts.hs2
-rw-r--r--LengthPrefixedBE.hs2
3 files changed, 3 insertions, 3 deletions
diff --git a/FunctorToMaybe.hs b/FunctorToMaybe.hs
index a718010..658b024 100644
--- a/FunctorToMaybe.hs
+++ b/FunctorToMaybe.hs
@@ -23,7 +23,7 @@ module FunctorToMaybe where
23 23
24#if MIN_VERSION_base(4,6,0) 24#if MIN_VERSION_base(4,6,0)
25#else 25#else
26import Control.Monad.Instances 26import Control.Monad.Instances()
27#endif 27#endif
28 28
29-- | The 'FunctorToMaybe' class genaralizes 'Maybe' in that the 29-- | The 'FunctorToMaybe' class genaralizes 'Maybe' in that the
diff --git a/Hosts.hs b/Hosts.hs
index 0761597..ee4d154 100644
--- a/Hosts.hs
+++ b/Hosts.hs
@@ -86,9 +86,11 @@ empty = Hosts { lineCount = 0
86 , namenum = Map.empty 86 , namenum = Map.empty
87 } 87 }
88 88
89{-
89parseHosts fname = do 90parseHosts fname = do
90 input <- L.readFile fname 91 input <- L.readFile fname
91 return $ decode input 92 return $ decode input
93-}
92 94
93decode input = 95decode input =
94 let ls = L.lines input 96 let ls = L.lines input
diff --git a/LengthPrefixedBE.hs b/LengthPrefixedBE.hs
index dd74fe3..0ccd0e2 100644
--- a/LengthPrefixedBE.hs
+++ b/LengthPrefixedBE.hs
@@ -4,9 +4,7 @@ module LengthPrefixedBE
4 , decode_bigendian 4 , decode_bigendian
5 ) where 5 ) where
6 6
7import Debug.Trace
8import qualified Data.ByteString.Lazy as L 7import qualified Data.ByteString.Lazy as L
9import Control.Monad (when)
10import Data.Bits 8import Data.Bits
11import Data.Binary 9import Data.Binary
12import Data.Binary.Get 10import Data.Binary.Get