diff options
author | Joe Crayne <joe@jerkface.net> | 2019-04-26 12:27:56 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-04-26 12:27:56 -0400 |
commit | 98d08f9b94840c442d3352be6f1cd3f4c76c33c6 (patch) | |
tree | ab790b55f3fc041b740fb5b6bc14e935094a58ca | |
parent | 53a8452962883df9529a7cf5119a1d9663fb8329 (diff) |
Renamed MeshMaker to MeshSketch.
-rw-r--r-- | MeshSketch.hs (renamed from MeshMaker.hs) | 2 | ||||
-rw-r--r-- | mainObj2.hs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/MeshMaker.hs b/MeshSketch.hs index 6b7477a..e23820c 100644 --- a/MeshMaker.hs +++ b/MeshSketch.hs | |||
@@ -1,6 +1,6 @@ | |||
1 | {-# LANGUAGE LambdaCase #-} | 1 | {-# LANGUAGE LambdaCase #-} |
2 | {-# LANGUAGE OverloadedLabels #-} | 2 | {-# LANGUAGE OverloadedLabels #-} |
3 | module MeshMaker where | 3 | module MeshSketch where |
4 | 4 | ||
5 | import Control.Monad | 5 | import Control.Monad |
6 | import Data.Coerce | 6 | import Data.Coerce |
diff --git a/mainObj2.hs b/mainObj2.hs index 7695120..909af2c 100644 --- a/mainObj2.hs +++ b/mainObj2.hs | |||
@@ -10,18 +10,18 @@ import Data.GI.Base.GType | |||
10 | 10 | ||
11 | import Foreign.Ptr | 11 | import Foreign.Ptr |
12 | 12 | ||
13 | import qualified MeshMaker | 13 | import qualified MeshSketch |
14 | 14 | ||
15 | 15 | ||
16 | main = do | 16 | main = do |
17 | _ <- Gtk.init Nothing | 17 | _ <- Gtk.init Nothing |
18 | 18 | ||
19 | let mkChild = MeshMaker.new | 19 | let mkChild = MeshSketch.new |
20 | 20 | ||
21 | window <- do | 21 | window <- do |
22 | w <- windowNew WindowTypeToplevel | 22 | w <- windowNew WindowTypeToplevel |
23 | windowSetDefaultSize w 360 360 | 23 | windowSetDefaultSize w 360 360 |
24 | windowSetTitle w "Mesh Maker" | 24 | windowSetTitle w "MeshSketch" |
25 | _ <- on w #deleteEvent $ \_ -> mainQuit >> return True | 25 | _ <- on w #deleteEvent $ \_ -> mainQuit >> return True |
26 | child <- mkChild | 26 | child <- mkChild |
27 | containerAdd w child | 27 | containerAdd w child |