Skip to content

Commit b6dc7a7

Browse files
committed
Release 0.4.0.0
1 parent 34eee70 commit b6dc7a7

File tree

4 files changed

+8
-5
lines changed

4 files changed

+8
-5
lines changed

CHANGELOG.md

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,14 +1,14 @@
11
# Revision history for ema
22

3-
## Unreleased
3+
## 0.4.0.0 -- 2022-01-19
44

55
- Pin TailwindCSS to 2.x, because the 3.x broke our CDN url
66
- Remove unused Cabal deps (#61)
77
- `Tailwind.layoutWith`: don't hardcode `<body>` attrs
8+
- Tailwind: module revamped and renamed to `Tailwind.Helper.Blaze`
89
- `runEma` and friends:
910
- return the monadic's action's return value or generated files (dependent type)
1011
- CLI: add `run` subcommand that takes `--host` and `--port` (and remove environment hacks of $HOST and $PORT)
11-
- Tailwind: module revamped and renamed to `Tailwind.Helper.Blaze`
1212

1313
## 0.2.0.0 -- 2021-11-21
1414

ema.cabal

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
cabal-version: 2.4
22
name: ema
3-
version: 0.3.0.3
3+
version: 0.4.0.0
44
license: AGPL-3.0-only
55
copyright: 2021 Sridhar Ratnakumar
66
maintainer: [email protected]

src/Ema/CLI.hs

+3-2
Original file line numberDiff line numberDiff line change
@@ -9,16 +9,17 @@
99
module Ema.CLI where
1010

1111
import Data.Constraint.Extras.TH (deriveArgDict)
12-
import Data.Default
12+
import Data.Default (Default (def))
1313
import Data.GADT.Compare.TH
1414
( DeriveGCompare (deriveGCompare),
1515
DeriveGEQ (deriveGEq),
1616
)
1717
import Data.GADT.Show.TH (DeriveGShow (deriveGShow))
18-
import Data.Some
18+
import Data.Some (Some (..))
1919
import Ema.Server (Host, Port)
2020
import Options.Applicative hiding (action)
2121

22+
-- | CLI subcommand
2223
data Action res where
2324
Generate :: FilePath -> Action [FilePath]
2425
Run :: (Host, Port) -> Action ()

src/Ema/Server.hs

+2
Original file line numberDiff line numberDiff line change
@@ -27,9 +27,11 @@ import System.FilePath ((</>))
2727
import Text.Printf (printf)
2828
import UnliftIO (MonadUnliftIO)
2929

30+
-- | Host string to start the server on.
3031
newtype Host = Host {unHost :: Text}
3132
deriving newtype (Eq, Show, Ord, IsString)
3233

34+
-- | Port number to bind the server on.
3335
newtype Port = Port {unPort :: Int}
3436
deriving newtype (Eq, Show, Ord, Num, Read)
3537

0 commit comments

Comments
 (0)