forked from
tokono.ma/diffuse
A music player that connects to your cloud/distributed storage.
shikensu-0.4.0
+11
-6
+3
-3
package.yaml
+3
-3
package.yaml
···
8
8
9
9
10
10
dependencies:
11
-
- aeson == 1.5.*
11
+
- aeson
12
12
- base >= 4.7 && < 5
13
13
- bytestring == 0.10.*
14
14
- cmark == 0.6.*
15
15
- flow == 1.*
16
-
- protolude == 0.3.*
17
-
- shikensu == 0.3.*
16
+
- protolude
17
+
- shikensu
18
18
- text == 1.*
19
19
- time == 1.*
20
20
- unordered-containers == 0.2.*
+6
-1
stack.yaml
+6
-1
stack.yaml
+2
-2
system/Build/Main.hs
+2
-2
system/Build/Main.hs
···
10
10
import Shikensu.Utilities
11
11
12
12
import qualified Data.Aeson as Aeson
13
+
import qualified Data.Aeson.KeyMap as KeyMap (fromList)
13
14
import qualified Data.ByteString.Lazy as BSL (toStrict)
14
15
import qualified Data.Char as Char
15
-
import qualified Data.HashMap.Strict as HashMap (fromList)
16
16
import qualified Data.List as List
17
17
import qualified Data.Text.Encoding as Text
18
18
import qualified Data.Text.IO as Text
···
121
121
aboutLayout <- Text.readFile "src/Static/About/Layout.html"
122
122
timestamp <- fmap show unixTime :: IO Text
123
123
124
-
return $ HashMap.fromList
124
+
return $ KeyMap.fromList
125
125
[ ( "aboutLayout", Aeson.toJSON aboutLayout )
126
126
, ( "timestamp", Aeson.toJSON timestamp )
127
127
]