shapr

module Main where

import Core
import System.Directory
import System.FilePath
import System.Process
import Data.Maybe
import Data.List

main :: IO ()

shapr

module Main where

import System.Directory
import System.FilePath
import System.Process
import Data.Maybe
import Data.List

myMusicDirectory = "/home/shae/Music"

shapr

module Main where

import           Data.Time.Clock
import           Data.Time.Format
import           Data.Time.Format.ISO8601
import           System.Cmd
import           System.Directory

main :: IO ()
main = do

shapr

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

import Foreign.C.String
import Foreign.Ptr
data C_Token

foreign import ccall "lib.h token_random" tokenRandom :: IO (Ptr C_Token)
foreign import ccall "lib.h token_encode_base64" tokenEncodeBase64 :: (Ptr C_Token) -> IO CString

shapr

\d

List of relations
Schema	Name	Type	Owner
public	older	table	shae
public	updates	table	shae

shapr

add_newline = true
format = "$all"

[battery]
full_symbol = "+(bold blue)"
charging_symbol = "⚡(bold green)"
discharging_symbol = "-(bold red)"
[[battery.display]]  # "bold red" style and discharging_symbol when capacity is between 0% and 10%
threshold = 10
style = "bold red"

shapr

;;; mpc.el --- quick hack to make remote control bindings for mpd via the mpc client

; started out as xmms-shell, became alsaplayer-shell, is now mpc

;; copyright (C) 2005 Shae Matijs Erisson 
;; released under the Lesser GPL license.

;; Author:   Shae Erisson <[email protected]>
;; Keywords: multimedia mpc mpd fnord mp3 eris ogg flac
;; Version:  0.3

shapr

use fastrand;
use std::collections::VecDeque;
use std::fmt;
use std::time::Instant;

impl fmt::Display for Game {
    fn fmt(&self, fmt: &mut fmt::Formatter) -> fmt::Result {
	let p1: String = self.p1deal.iter().map(show_card).collect();
	let p2: String = self.p2deal.iter().map(show_card).collect();
	write!(fmt, "{} {} {}", self.steps, p1, p2)

shapr

module Main where

main :: IO ()
main = do
  theFile <- readFile "input.txt"
  print (theFunction theFile)

theFunction x = x

mylength :: Num p => [a] -> p

shapr

module Main where

import           Data.Time.Clock
import           Data.Time.Format
import           Data.Time.Format.ISO8601
import           System.Cmd
import           System.Directory

main :: IO ()
main = do