Move Defaults.hs to 'Class' subsystem
This commit is contained in:
parent
b7d752ae20
commit
73984b796d
@ -54,7 +54,7 @@ executable CG2
|
|||||||
main-is: Main.hs
|
main-is: Main.hs
|
||||||
|
|
||||||
-- Modules included in this executable, other than Main.
|
-- Modules included in this executable, other than Main.
|
||||||
other-modules: Defaults Diagram Gtk Parser.Meshparser Parser.Core OS.FileExt LinearAlgebra.Vector
|
other-modules: Diagram Gtk Class.Defaults Parser.Meshparser Parser.Core OS.FileExt LinearAlgebra.Vector
|
||||||
|
|
||||||
-- LANGUAGE extensions used by modules in this package.
|
-- LANGUAGE extensions used by modules in this package.
|
||||||
-- other-extensions:
|
-- other-extensions:
|
||||||
|
@ -1,6 +1,6 @@
|
|||||||
{-# OPTIONS_HADDOCK ignore-exports #-}
|
{-# OPTIONS_HADDOCK ignore-exports #-}
|
||||||
|
|
||||||
module Defaults where
|
module Class.Defaults where
|
||||||
|
|
||||||
|
|
||||||
-- |Used to create a common interface for default settings of data types.
|
-- |Used to create a common interface for default settings of data types.
|
@ -9,7 +9,7 @@ module Diagram (t,
|
|||||||
diagS,
|
diagS,
|
||||||
whiteRect) where
|
whiteRect) where
|
||||||
|
|
||||||
import Defaults
|
import Class.Defaults
|
||||||
import Diagrams.Prelude
|
import Diagrams.Prelude
|
||||||
import Diagrams.Backend.Cairo
|
import Diagrams.Backend.Cairo
|
||||||
import LinearAlgebra.Vector
|
import LinearAlgebra.Vector
|
||||||
|
2
Gtk.hs
2
Gtk.hs
@ -3,7 +3,7 @@
|
|||||||
module Gtk (makeGUI) where
|
module Gtk (makeGUI) where
|
||||||
|
|
||||||
import Control.Monad.IO.Class
|
import Control.Monad.IO.Class
|
||||||
import Defaults
|
import Class.Defaults
|
||||||
import Diagram
|
import Diagram
|
||||||
import Diagrams.Prelude
|
import Diagrams.Prelude
|
||||||
import Diagrams.Backend.Cairo
|
import Diagrams.Backend.Cairo
|
||||||
|
Loading…
Reference in New Issue
Block a user