From fce6059d26b0cdaa211232b4812c614fc0076818 Mon Sep 17 00:00:00 2001
From: Dominic Steinitz <dominic@steinitz.org>
Date: Mon, 19 Mar 2018 16:52:00 +0000
Subject: Remove redundant imports

---
 packages/sundials/src/Main.hs  | 19 ++++---------------
 packages/sundials/src/Types.hs | 18 +++---------------
 2 files changed, 7 insertions(+), 30 deletions(-)

(limited to 'packages')

diff --git a/packages/sundials/src/Main.hs b/packages/sundials/src/Main.hs
index ab5b153..b3ebcb3 100644
--- a/packages/sundials/src/Main.hs
+++ b/packages/sundials/src/Main.hs
@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wall #-}
+
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE MultiWayIf #-}
@@ -9,29 +11,15 @@ import qualified Language.C.Inline.Unsafe as CU
 import           Data.Monoid ((<>))
 import           Foreign.C.Types
 import           Foreign.Ptr (Ptr)
-import           Foreign.Marshal.Array
 import qualified Data.Vector.Storable as V
 
 import           Data.Coerce (coerce)
-import           Data.Monoid ((<>))
-import qualified Data.Vector.Storable as V
 import qualified Data.Vector.Storable.Mutable as VM
-import           Foreign.C.Types
 import           Foreign.ForeignPtr (newForeignPtr_)
-import           Foreign.Ptr (Ptr)
 import           Foreign.Storable (Storable)
-import qualified Language.C.Inline as C
-import qualified Language.C.Inline.Unsafe as CU
 import           System.IO.Unsafe (unsafePerformIO)
 
-import qualified Language.Haskell.TH as TH
-import qualified Language.C.Types as CT
-import qualified Data.Map as Map
-import           Language.C.Inline.Context
-
-import           Foreign.C.String
-import           Foreign.Storable (peek, poke, peekByteOff, pokeByteOff)
-import           Data.Int
+import           Foreign.Storable (peekByteOff)
 
 import qualified Types as T
 
@@ -237,6 +225,7 @@ solveOdeC fun f0 = unsafePerformIO $ do
                        } |]
   return res
 
+main :: IO ()
 main = do
   let res = solveOdeC (coerce stiffish) (V.fromList [1.0])
   putStrLn $ show res
diff --git a/packages/sundials/src/Types.hs b/packages/sundials/src/Types.hs
index 325072c..c42c34e 100644
--- a/packages/sundials/src/Types.hs
+++ b/packages/sundials/src/Types.hs
@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -Wall #-}
+
 {-# LANGUAGE QuasiQuotes #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE MultiWayIf #-}
@@ -5,25 +7,10 @@
 
 module Types where
 
-import qualified Language.C.Inline as C
-import qualified Language.C.Inline.Unsafe as CU
-import           Data.Monoid ((<>))
 import           Foreign.C.Types
 import           Foreign.Ptr (Ptr)
-import           Foreign.Marshal.Array
-import qualified Data.Vector.Storable as V
 
-import           Data.Coerce (coerce)
-import           Data.Monoid ((<>))
-import qualified Data.Vector.Storable as V
-import qualified Data.Vector.Storable.Mutable as VM
-import           Foreign.C.Types
-import           Foreign.ForeignPtr (newForeignPtr_)
-import           Foreign.Ptr (Ptr)
 import           Foreign.Storable (Storable(..))
-import qualified Language.C.Inline as C
-import qualified Language.C.Inline.Unsafe as CU
-import           System.IO.Unsafe (unsafePerformIO)
 
 import qualified Language.Haskell.TH as TH
 import qualified Language.C.Types as CT
@@ -48,5 +35,6 @@ sunTypesTable = Map.fromList
   , (CT.TypeName "BarType", [t| BarType |] )
   ]
 
+sunCtx :: Context
 sunCtx = mempty {ctxTypesTable = sunTypesTable}
 
-- 
cgit v1.2.3