Removed unused code in elm-format-lib

elm-format-lib/src/ElmFormat/AST/PublicAST/Module.hs

@@ -21,7 +21,6 @@ import AST.MatchReferences (fromMatched, matchReferences)
 import Data.Text (Text)
 import qualified Data.Either as Either
 import qualified Data.Text as Text
-import Data.Maybe (fromMaybe)
 
 
 data Module

elm-format-lib/src/Parse/Primitives.hs

@@ -27,8 +27,7 @@ import qualified Data.ByteString.Internal as B
 import Data.Word (Word8, Word16)
 import Foreign.Ptr (Ptr, plusPtr)
 import Foreign.Storable (peek)
-import Foreign.ForeignPtr (ForeignPtr, touchForeignPtr)
-import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
+import Foreign.ForeignPtr (ForeignPtr)
 
 import qualified Reporting.Annotation as A
 
@@ -202,36 +201,6 @@ instance Monad (Parser x) where
       parserA state cok' eok' cerr eerr
 
 
-
--- FROM BYTESTRING
-
-
---fromByteString :: Parser x a -> (Row -> Col -> x) -> B.ByteString -> Either x a
---fromByteString (Parser parser) toBadEnd (B.PS fptr offset length) =
---  B.accursedUnutterablePerformIO $
---    let
---      toOk' = toOk toBadEnd
---      !pos = plusPtr (unsafeForeignPtrToPtr fptr) offset
---      !end = plusPtr pos length
---      !result = parser (State fptr pos end 0 1 1) toOk' toOk' toErr toErr
---    in
---    do  touchForeignPtr fptr
---        return result
-
-
-toOk :: (Row -> Col -> x) -> a -> State -> Either x a
-toOk toBadEnd !a (State _ pos end _ row col _) =
-  if pos == end
-  then Right a
-  else Left (toBadEnd row col)
-
-
-toErr :: Row -> Col -> (Row -> Col -> x) -> Either x a
-toErr row col toError =
-  Left (toError row col)
-
-
-
 -- FROM SNIPPET
 
 

elm-format-lib/src/Parse/Whitespace.hs

@@ -7,7 +7,7 @@ import Parse.IParser
 import qualified Parse.Markdown as Markdown
 import qualified Parse.State as State
 import qualified Reporting.Error.Syntax as Syntax
-import Parse.ParsecAdapter hiding (newline, spaces, State)
+import Parse.ParsecAdapter
 
 
 padded :: IParser a -> IParser (C2 before after a)

elm-format-lib/src/Reporting/Annotation.hs

@@ -21,7 +21,6 @@ import Control.Monad (liftM2)
 import Data.Coapplicative
 import Data.Binary (Binary, get, put)
 import Data.Word (Word16)
-import Data.String (unwords)
 
 
 
@@ -58,11 +57,6 @@ instance Coapplicative Located where
     {-# INLINE extract #-}
 
 
-traverse :: (Functor f) => (a -> f b) -> Located a -> f (Located b)
-traverse func (At region value) =
-  At region <$> func value
-
-
 toValue :: Located a -> a
 toValue (At _ value) =
   value