threepenny-gui 0.1.0.0 → 0.1.0.1
raw patch · 3 files changed
+35/−7 lines, 3 filesdep ~basedep ~network
Dependency ranges changed: base, network
Files
- src/Data/List/Extra.hs +8/−0
- src/Paths.hs +20/−0
- threepenny-gui.cabal +7/−7
+ src/Data/List/Extra.hs view
@@ -0,0 +1,8 @@+module Data.List.Extra where+ +import Data.List+import Data.Char+import Data.Maybe++trim :: String -> String+trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace
+ src/Paths.hs view
@@ -0,0 +1,20 @@+{-# LANGUAGE CPP#-}+module Paths (getStaticDir) where++import Control.Monad+import System.FilePath++#if CABAL+-- using cabal+import qualified Paths_threepenny_gui (getDataDir)++getStaticDir :: IO FilePath+getStaticDir = (</> "wwwroot") `liftM` Paths_threepenny_gui.getDataDir++#else+-- using GHCi++getStaticDir :: IO FilePath+getStaticDir = return "../wwwroot/"++#endif
threepenny-gui.cabal view
@@ -1,5 +1,5 @@ Name: threepenny-gui-Version: 0.1.0.0+Version: 0.1.0.1 Synopsis: Small GUI framework that uses the web browser as a display. Description: Threepenny-GUI is a small GUI framework that uses the web browser as a display.@@ -91,7 +91,7 @@ else buildable: False main-is: BarTab.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths hs-source-dirs: src Executable threepenny-examples-buttons@@ -103,7 +103,7 @@ else buildable: False main-is: Buttons.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths hs-source-dirs: src Executable threepenny-examples-dragndropexample@@ -115,7 +115,7 @@ else buildable: False main-is: DragNDropExample.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths hs-source-dirs: src @@ -129,7 +129,7 @@ else buildable: False main-is: MissingDollars.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths hs-source-dirs: src Executable threepenny-examples-use-words@@ -142,7 +142,7 @@ else buildable: False main-is: UseWords.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths hs-source-dirs: src Executable threepenny-examples-chat@@ -156,5 +156,5 @@ else buildable: False main-is: Chat.hs- other-modules: Paths_threepenny_gui+ other-modules: Paths_threepenny_gui, Paths, Data.List.Extra hs-source-dirs: src