denisshevchenko

{-
   Денис Шевченко, 2015
-}

module Main where

import Control.Monad.Writer.Lazy
import Data.Functor ((<$>))
import Data.List (dropWhileEnd)
import Data.Char (isSpace)

denisshevchenko

instance Options MainOptions where
    defineOptions = 
        MainOptions <$> defineOption optionType_bool a_help
                    <*> defineOption optionType_bool a_version
                    <*> defineOption optionType_string a_path
        where a_help opt = opt { optionLongFlags = ["help"]
                               , optionShortFlags = ['h']
                               }
              a_version opt = opt { optionLongFlags = ["version"]
                                  , optionShortFlags = ['v']

denisshevchenko

(<|>) :: Parser a -> Parser a -> Parser a
parser1 <|> parser2 = P $ \some -> case parse parser1 some of
                                       []     -> parse parser2 some
                                       result -> result

denisshevchenko

#!/bin/bash

USAGE="
Использование: webhs_ctl.sh STAND COMMAND
где:
  STAND   - один из имеющихся стендов: alpha, beta, rc, production
  COMMAND - одна из команд: start, stop, restart

Пример:
  ./webhs_ctl.sh alpha restart

denisshevchenko

set guifont=Menlo:h15
" set guifont=Hasklig:h15

if has('gui_running')
      set background=dark
      colorscheme solarized
endif

let NERDTreeQuitOnOpen = 0

denisshevchenko

{-
    Модуль, предназначенный для компиляции Fay-модулей в единый .js-скрипт.

    ВНИМАНИЕ! Данный модуль не является частью основного проекта, это независимый Haskell-скрипт.
    Поэтому он должен запускаться отдельно, из корня репозитория:

    $ runhaskell templates/FayHelpers/CompileFayModules.hs

    Результатом работы этого скрипта будет файл static/js/FayModules.js, подключаемый основным проектом.
-}

denisshevchenko

sudo rm -rf /Library/Frameworks/GHC.framework
sudo rm -rf /Library/Frameworks/HaskellPlatform.framework
sudo rm -rf /Library/Haskell
rm -rf .cabal
rm -rf .ghc
rm -rf ~/Library/Haskell
find /usr/bin /usr/local/bin -type l | \
    xargs -If sh -c '/bin/echo -n f /; readlink f' | \
    egrep '//Library/(Haskell|Frameworks/(GHC|HaskellPlatform).framework)' | \
    cut -f 1 -d ' ' > /tmp/hs-bin-links

denisshevchenko

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
    <key>name</key>
    <string>Cubicle</string>
    <key>settings</key>
    <array>
        <dict>
            <key>settings</key>

denisshevchenko

{
	"color_scheme": "Packages/SublimeHaskell/CubicleSolarized.tmTheme",
	"font_face": "DejaVu LGC Sans Mono",
	"font_size": 15,
	"ignored_packages":
	[
		"Markdown"
	],
	"numix_folder_icons": true,
	"theme": "Numix Light.sublime-theme",

denisshevchenko

-- Initial learnHaskell.cabal generated by cabal init.  For further
-- documentation, see http://haskell.org/cabal/users-guide/

name:                learnHaskell
version:             0.1.0.0
-- synopsis:
-- description:
-- license:
license-file:        LICENSE
author:              Denis Shevchenko