mirror of
https://github.com/byteverse/colonnade.git
synced 2024-09-11 06:45:41 +03:00
improve siphon docs even more
This commit is contained in:
parent
17b1473359
commit
3d32e8017e
2
.gitignore
vendored
2
.gitignore
vendored
@ -28,3 +28,5 @@ colonnade/ex1.hs
|
|||||||
colonnade/result
|
colonnade/result
|
||||||
|
|
||||||
reflex-dom-colonnade/result
|
reflex-dom-colonnade/result
|
||||||
|
siphon-0.8.0-docs.tar.gz
|
||||||
|
siphon-0.8.0-docs/
|
||||||
|
@ -319,11 +319,12 @@ textEscapeAlways t = Escaped $ LT.toStrict $ TB.toLazyText $
|
|||||||
t
|
t
|
||||||
<> TB.singleton '"'
|
<> TB.singleton '"'
|
||||||
|
|
||||||
-- | Parse a record, not including the terminating line separator. The
|
-- Parse a record, not including the terminating line separator. The
|
||||||
-- terminating line separate is not included as the last record in a
|
-- terminating line separate is not included as the last record in a
|
||||||
-- CSV file is allowed to not have a terminating line separator. You
|
-- CSV file is allowed to not have a terminating line separator. You
|
||||||
-- most likely want to use the 'endOfLine' parser in combination with
|
-- most likely want to use the 'endOfLine' parser in combination with
|
||||||
-- this parser.
|
-- this parser.
|
||||||
|
--
|
||||||
-- row :: Word8 -- ^ Field delimiter
|
-- row :: Word8 -- ^ Field delimiter
|
||||||
-- -> AL.Parser (Vector ByteString)
|
-- -> AL.Parser (Vector ByteString)
|
||||||
-- row !delim = rowNoNewline delim <* endOfLine
|
-- row !delim = rowNoNewline delim <* endOfLine
|
||||||
@ -337,6 +338,7 @@ textEscapeAlways t = Escaped $ LT.toStrict $ TB.toLazyText $
|
|||||||
-- removeBlankLines :: [Vector ByteString] -> [Vector ByteString]
|
-- removeBlankLines :: [Vector ByteString] -> [Vector ByteString]
|
||||||
-- removeBlankLines = filter (not . blankLine)
|
-- removeBlankLines = filter (not . blankLine)
|
||||||
|
|
||||||
|
|
||||||
-- | Parse a field. The field may be in either the escaped or
|
-- | Parse a field. The field may be in either the escaped or
|
||||||
-- non-escaped format. The return value is unescaped. This
|
-- non-escaped format. The return value is unescaped. This
|
||||||
-- parser will consume the comma that comes after a field
|
-- parser will consume the comma that comes after a field
|
||||||
|
26
stack-haddock-upload
Executable file
26
stack-haddock-upload
Executable file
@ -0,0 +1,26 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
|
||||||
|
# Author: Dimitri Sabadie <dimitri.sabadie@gmail.com>
|
||||||
|
# 2015
|
||||||
|
|
||||||
|
dist=`stack path --dist-dir --stack-yaml ./stack.yaml 2> /dev/null`
|
||||||
|
|
||||||
|
echo -e "\033[1;36mGenerating documentation...\033[0m"
|
||||||
|
stack haddock 2> /dev/null
|
||||||
|
|
||||||
|
if [ "$?" -eq "0" ]; then
|
||||||
|
docdir=$dist/doc/html
|
||||||
|
cd $docdir
|
||||||
|
doc=$1-$2-docs
|
||||||
|
echo -e "Compressing documentation from \033[1;34m$docdir\033[0m for \033[1;35m$1\033[0m-\033[1;33m$2\033[1;30m"
|
||||||
|
cp -r $1 $doc
|
||||||
|
tar -c -v -z --format=ustar -f $doc.tar.gz $doc
|
||||||
|
echo -e "\033[1;32mUploading to Hackage...\033[0m"
|
||||||
|
read -p "Hackage username: " username
|
||||||
|
read -p "Hackage password: " -s password
|
||||||
|
echo ""
|
||||||
|
curl -X PUT -H 'Content-Type: application/x-tar' -H 'Content-Encoding: gzip' --data-binary "@$doc.tar.gz" "https://$username:$password@hackage.haskell.org/package/$1-$2/docs"
|
||||||
|
exit $?
|
||||||
|
else
|
||||||
|
echo -e "\033[1;31mNot in a stack-powered project\033[0m"
|
||||||
|
fi
|
Loading…
Reference in New Issue
Block a user